home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / tcom / devsel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.2 KB  |  61 lines
  1. unit Devsel;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, AdPort, TComIni;
  8.  
  9. type
  10.   TDeviceSelectForm = class(TForm)
  11.     LayerGroup: TRadioGroup;
  12.     BufferGroup: TRadioGroup;
  13.     OkBtn: TBitBtn;
  14.     CancelBtn: TBitBtn;
  15.     HelpBtn: TBitBtn;
  16.     procedure OkBtnClick(Sender: TObject);
  17.  
  18.   public
  19.     constructor Create(AOwner : TComponent); override;
  20.   end;
  21.  
  22. implementation
  23.  
  24. {$R *.DFM}
  25.  
  26. constructor TDeviceSelectForm.Create(AOwner : TComponent);
  27. begin
  28.   inherited Create(AOwner);
  29.  
  30.   if (Device = dlComm) then
  31.     LayerGroup.ItemIndex := 0
  32.   else
  33.     LayerGroup.ItemIndex := 1;
  34.  
  35.   case InBuff of
  36.     2048: BufferGroup.ItemIndex := 0;
  37.     4096: BufferGroup.ItemIndex := 1;
  38.     8192: BufferGroup.ItemIndex := 2;
  39.     else
  40.       BufferGroup.ItemIndex := 3;
  41.   end;
  42. end;
  43.  
  44. procedure TDeviceSelectForm.OkBtnClick(Sender: TObject);
  45. begin
  46.   case LayerGroup.ItemIndex of
  47.     0: Device := dlComm;
  48.     1: Device := dlFossil;
  49.   end;
  50.  
  51.   case BufferGroup.ItemIndex of
  52.     0: InBuff := 2048;
  53.     1: InBuff := 4096;
  54.     2: InBuff := 8192;
  55.     3: InBuff := 16384;
  56.   end;
  57. end;
  58.  
  59. end.
  60.  
  61.